home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / spline11 / vblib.bas < prev   
Encoding:
BASIC Source File  |  1995-08-31  |  464 b   |  17 lines
  1. 'Copyright (C) Andrew S. Dean 1993-95
  2. Option Explicit
  3.  
  4. Sub CenterForm (F As Form)
  5.    ' Center the specified form within the screen
  6.    F.Move (Screen.Width - F.Width) \ 2, (Screen.Height - F.Height) \ 2
  7. End Sub    ' CenterForm()
  8.  
  9. Sub UnloadOnEscape (KeyAscii As Integer)
  10.    ' Escape Key disables all dialogs.
  11.    ' This relies on KeyPreview being set for the form.
  12.    If (KeyAscii = KEY_ESCAPE) Then
  13.       Unload Screen.ActiveForm
  14.    End If
  15. End Sub
  16.  
  17.